home *** CD-ROM | disk | FTP | other *** search
- /*
- -- ANSI C code generated by :
- -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82) --
- -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
- -- Dominique COLNET and Suzanne COLLIN - colnet@loria.fr --
- -- http://www.loria.fr/SmallEiffel --
- */
- #include "compile_to_jvm.h"
- int r239is_integer(T239* C){
- int R=0;
- R=X291is_integer((((T239*)C))->_run_type/*8*/);
- return R;
- }
- void r239anchor_cycle_end(T239* C){
- /*IF*/if (((((T239*)C))->_start_position/*4*/)==((void*)(/*(IRF4.5first*//*(IRF4.6item*/((((T907*)((T907*)(oBC646visited))))->_storage/*0*/)[0]/*)*//*)*/))) {
- /*[IRF3.3clear*/((((T907*)(((T907*)(oBC646visited)))))->_upper)=(-(1));
- /*]*/
- }
- /*FI*/}
- T0* r342add_comment(T342* C,T0* a1){
- T0* R=NULL;
- /*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
- R=(T0*)C;
- }
- else {
- {T529*n=malloc(sizeof(*n));
- *n=M529;
- r529make(n,(T0*)C,a1);
- R=(T0*)n;
- }
- }
- /*FI*/return R;
- }
- /*No:INTEGER_CONSTANT.to_integer*/
- int r342is_a(T342* C,T0* a1){
- int R=0;
- R=X291is_a(/*(IRF4.4run_type*/((T0*)((T788*)r342result_type()))/*)*/,X291run_type(X662result_type(a1)));
- /*IF*/if (!(R)) {
- r683add_position((((T342*)C))->_start_position/*12*/);
- r342error(X662start_position(a1),((T0*)ms4_662));
- }
- /*FI*/return R;
- }
- /*No:INTEGER_CONSTANT.is_current*/
- /*No:INTEGER_CONSTANT.jvm_branch_if_false*/
- /*No:INTEGER_CONSTANT.static_value*/
- void r342make(T342* C,int a1,T0* a2){
- C->_value=a1;
- C->_start_position=a2;
- }
- /*No:INTEGER_CONSTANT.compile_to_jvm_assignment*/
- /*No:INTEGER_CONSTANT.fz_iinaiv*/
- /*No:INTEGER_CONSTANT.jvm_branch_if_true*/
- void r342unary_minus(T342* C){
- C->_value=-((((T342*)C))->_value/*16*/);
- }
- /*No:INTEGER_CONSTANT.start_position*/
- /*No:INTEGER_CONSTANT.compile_to_jvm_old*/
- T0* r342to_runnable(T342* C,T0* a1){
- T0* R=NULL;
- /*IF*/if (((((T342*)C))->_current_type/*8*/)==((void*)(NULL))) {
- C->_current_type=a1;
- R=(T0*)C;
- }
- else {
- R=r342twin(C);
- /*[IRF3.3set_current_type*/((((T342*)(((T342*)R))))->_current_type)=(a1);
- /*]*/
- }
- /*FI*/return R;
- }
- int fBC342result_type=0;
- T0*oBC342result_type=NULL;
- T0* r342result_type(void){
- if (fBC342result_type==0){
- T0* R=NULL;
- fBC342result_type=1;
- {T788*n=malloc(sizeof(*n));
- *n=M788;
- r788make(n,NULL);
- R=(T0*)n;
- }
- oBC342result_type=R;}
- return oBC342result_type;}
- /*No:INTEGER_CONSTANT.is_result*/
- T0* r342twin(T342* C){
- T0* R=NULL;
- R=malloc(sizeof(*C));
- *((T342*)R)=*C;
- return R;
- }
- /*No:INTEGER_CONSTANT.set_current_type*/
- int r342is_static(T342* C){
- int R=0;
- C->_static_value_mem=(((T342*)C))->_value/*16*/;
- R=1;
- return R;
- }
- int r342compile_to_jvm_into(T342* C,T0* a1){
- int R=0;
- R=r342standard_compile_to_jvm_into(C,a1);
- return R;
- }
- /*No:INTEGER_CONSTANT.compile_target_to_jvm*/
- /*No:INTEGER_CONSTANT.value*/
- /*No:INTEGER_CONSTANT.can_be_dropped*/
- /*No:INTEGER_CONSTANT.current_type*/
- /*No:INTEGER_CONSTANT.jvm_assign*/
- /*No:INTEGER_CONSTANT.static_value_mem*/
- /*No:INTEGER_CONSTANT.is_manifest_string*/
- /*No:INTEGER_CONSTANT.is_void*/
- /*No:INTEGER_CONSTANT.compile_to_jvm*/
- T0* r342to_real_constant(T342* C){
- T0* R=NULL;
- {T936*n=malloc(sizeof(*n));
- *n=M936;
- r936make(n,(((T342*)C))->_start_position/*12*/,r2to_string((((T342*)C))->_value/*16*/));
- R=(T0*)n;
- }
- return R;
- }
- /*No:INTEGER_CONSTANT.is_pre_computable*/
- /*No:INTEGER_CONSTANT.use_current*/
- void r342error(T0* a1,T0* a2){
- r683add_position(a1);
- r683error(((T683*)(oBC364eh)),a2);
- }
- int r342isa_dca_inline_argument(T342* C){
- int R=0;
- /*IF*/if (r342is_static(C)) {
- R=-(1);
- }
- /*FI*/return R;
- }
- int r342standard_compile_to_jvm_into(T342* C,T0* a1){
- int R=0;
- /*[IRF3.6compile_to_jvm*/{T342* C1=C;
- r256opcode_push_integer(((T256*)(oBC364code_attribute)),(((T342*)C1))->_value/*16*/);
- }/*]*/
- R=X291jvm_convert_to(/*(IRF4.4run_type*/((T0*)((T788*)r342result_type()))/*)*/,a1);
- return R;
- }
- /*No:INTEGER_CONSTANT.afd_check*/
-
-